home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / short / roreru.bas < prev    next >
BASIC Source File  |  1994-08-18  |  3KB  |  74 lines
  1. 1000   SCREEN 0:SCREEN@0
  2. 1010   CONSOLE 0,25,0:COLOR 7,0:CLS
  3. 1020   E_CR0=0:E_CR1=4:E_字数=3
  4. 1030   LOCATE 27,1
  5. 1040   PRINT"ローレル指数計算プログラム       by 渡辺 良一"
  6. 1050   LOCATE 0,3
  7. 1060   PRINT"身長を入力してください。(cm)"
  8. 1070   E_文字$="":E_X=0:E_Y=4
  9. 1080   GOSUB *文字編集
  10. 1090   CM=VAL(E_文字$)
  11. 1100   PRINT"体重を入力してください。(kg)"
  12. 1110   E_文字$="":E_X=0:E_Y=6
  13. 1120   GOSUB *文字編集
  14. 1130   KG=VAL(E_文字$)
  15. 1140   R=CINT((KG/CM^3)*10000000)
  16. 1150   PRINT"ローレル指数=";R
  17. 1160   IF R<100 THEN
  18. 1170     PRINT"やせすぎ（９９以下）"
  19. 1180   ELSE IF R<115 THEN
  20. 1190     PRINT"やせている（１００～１１４）"
  21. 1200   ELSE IF R<145 THEN
  22. 1210     PRINT"標準（１１５～１４４）"
  23. 1220   ELSE IF R<160 THEN
  24. 1230     PRINT"ふとっている（１４５～１５９）"
  25. 1240   ELSE
  26. 1250     PRINT"ふとりすぎ（１６０以上）"
  27. 1260   ENDIF
  28. 1270   WHILE INKEY$="":WEND
  29. 1280   END
  30. 1290 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
  31. 1300 *文字編集
  32. 1310   GOSUB *トラップ
  33. 1320   GOSUB *E_文字表示
  34. 1330   E_C=LEN(E_文字$)
  35. 1340   E_CR=E_CR1:GOSUB *E_書く
  36. 1350   LINE(E_X*8-1,E_Y*19-1)-STEP(E_字数*8+3,17),PSET,E_CR3,B
  37. 1360 *E_INKEY
  38. 1370   E_K$=INKEY$
  39. 1380   IF E_K$="" THEN *E_INKEY
  40. 1390   E_K=ASC(E_K$)
  41. 1400   IF E_K=13 THEN GOSUB *E_消す:RETURN
  42. 1410   IF E_K=5  AND E_C<LEN(E_文字$) THEN *E_一括削除
  43. 1420   IF E_K=8  AND E_C>0            THEN *E_後退
  44. 1430   IF E_K=127 THEN IF E_C<LEN(E_文字$) THEN *E_削除 ELSE *E_INKEY
  45. 1440   IF E_K=28 AND E_C<LEN(E_文字$) THEN E_I= 1:GOTO *E_移動
  46. 1450   IF E_K=29 AND E_C>0            THEN E_I=-1:GOTO *E_移動
  47. 1460   IF (E_K<&H30 OR &H39<E_K) AND                                                  (E_K<>&H2E OR INSTR(E_文字$,".")) THEN *E_INKEY
  48. 1470   IF LEN(E_文字$+E_K$)>E_字数 THEN GOSUB *トラップ:GOTO *E_INKEY
  49. 1480   E_文字$=LEFT$(E_文字$,E_C)+E_K$+MID$(E_文字$,E_C+1)
  50. 1490   E_I=1:GOSUB *E_文字表示:GOTO *E_移動
  51. 1500 *E_一括削除
  52. 1510   E_文字$=LEFT$(E_文字$,E_C)+STRING$(LEN(E_文字$)-E_C,32)
  53. 1520   GOSUB *E_文字表示
  54. 1530   E_文字$=LEFT$(E_文字$,E_C)
  55. 1540   GOTO *E_INKEY
  56. 1550 *E_後退
  57. 1560   E_文字$=LEFT$(E_文字$,E_C-1)+MID$(E_文字$,E_C+1)
  58. 1570   GOSUB *E_文字表示:E_I=-1:GOTO *E_移動
  59. 1580 *E_削除
  60. 1590   E_文字$=LEFT$(E_文字$,E_C)+MID$(E_文字$,E_C+2)
  61. 1600   GOSUB *E_文字表示
  62. 1610   GOTO *E_INKEY
  63. 1620 *E_移動
  64. 1630   GOSUB *E_消す
  65. 1640   E_C=E_C+E_I
  66. 1650   E_CR=E_CR1
  67. 1660   GOSUB *E_表示
  68. 1670   GOTO *E_INKEY
  69. 1680 *E_消す:E_CR=E_CR0:GOSUB *E_書く:RETURN
  70. 1690 *E_表示:E_CR=E_CR1:GOSUB *E_書く:RETURN
  71. 1700 *E_書く:LINE((E_X+E_C)*8,E_Y*19)-STEP(1,15),PSET,E_CR,B:RETURN
  72. 1710 *E_文字表示:LOCATE E_X,E_Y:PRINT E_文字$;" ":RETURN
  73. 1720 *トラップ:WHILE INKEY$<>"":WEND:RETURN
  74.